<%
Class IndexAction 'Extends CommonAction	
	sub getConfig () 
		dim data
		set data = json_decode( POP_MVC.post("_data") ) 
		set data = data("options")
		for each key in data
			data(key) = C_(key)
		next
		call that.ajaxReturn( data )
	end sub

	Sub setConfig()
		dim data
		set data = json_decode( POP_MVC.post("_data") ) 
		call P_("config").Write( "./config.asp" , data , "" )
		call that.ajaxReturn( "修改成功" )
	End Sub
	
	sub clearCache()
		dim data,func
		set data = json_decode( POP_MVC.post("_data") ) 
		func = POP_MVC.dict.shift(data)(1)
		call call_user_sub( "P_(""template"")." & func,data )
		call that.success("操作成功")
	End Sub
End Class
%>